Option Explicit
Sub Q_Sample005()
    ']wޥζMicrosoft Access 10.0 Object Library
    Dim myAcApp As Access.Application
    Set myAcApp = CreateObject("Access.Application")
    With myAcApp
        .Visible = True
        .OpenCurrentDatabase ThisWorkbook.Path & "\Q_Data.mdb"  'Nɮ
        .DoCmd.OpenReport Reportname:="Q_Tbl01", _
            View:=acViewNormal 'acViewPreview
        .CloseCurrentDatabase
        .Quit
    End With
    Set myAcApp = Nothing                                               '
End Sub
